home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE2.POM < prev    next >
Text File  |  1995-02-01  |  1KB  |  55 lines
  1. ;
  2. ; NOTE:  A quick-reference summary of POM commands appears in EXAMPLE4.POM
  3. ;
  4. ;-----------------------------------------------------------------------------
  5.  
  6. MINLEN "85"
  7. ;
  8. IGNORE $FLINE[ 01  08] "Date: "
  9. IGNORE $FLINE[ 49  67] "Order      Expected"
  10. IGNORE $FLINE[ 49  68] "Date       Ship Date"
  11. IGNORE $FLINE[ 10  32] "Item number/Description"
  12. ;
  13. ; Tidy up file line
  14. ;
  15. CHANGE $FLINE """" "'"
  16. ;
  17. ; Determine where we are
  18. ;
  19. IF     $FLINE[8] = " " THEN ITEMCNTR = ITEMCNTR+ ELSE "0"
  20. ;
  21. ; Set variables
  22. ;
  23. BEGIN    ITEMCNTR = "0"
  24.   SET    REFNUM   = $FLINE[  1   8]
  25.   SET    CUSTCODE = $FLINE[ 10  15]
  26.   SET    CUSTDESC = $FLINE[ 17  47]
  27.   SET    ORDRDATE = $FLINE[ 49  57]
  28.   SET    MSTRCVDT = $FLINE[ 60  68]
  29.   TRIM   REFNUM   "B" " "
  30.   TRIM   CUSTCODE "B" " "
  31.   TRIM   CUSTDESC "B" " "
  32.   TRIM   ORDRDATE "B" " "
  33.   TRIM   MSTRCVDT "B" " "
  34. END
  35.  
  36. BEGIN    ITEMCNTR = "1"
  37.   SET    PRICE    = $FLINE[105 114]
  38.   SET    QTY      = $FLINE[ 76  86]
  39.   SET    PARTNUM  = $FLINE[ 10  32]
  40.   TRIM   PRICE    "B" " "
  41.   TRIM   PRICE    "A" ","
  42.   TRIM   QTY      "B" " "
  43.   TRIM   PARTNUM  "B" " "
  44.   IF     PRICE     = "" THEN PRICE = "0.00"
  45.   IF     QTY       = "" THEN QTY   = "0"
  46. END
  47.  
  48. BEGIN    ITEMCNTR = "2"
  49.   SET    DESCRIP  = $FLINE[ 10  43]
  50.   TRIM   DESCRIP  "B" " "
  51.   OUT    |"{REFNUM}","{CUSTCODE}",{PRICE},{QTY},"{PARTNUM}",
  52.   OUTEND |"{DESCRIP}"
  53.   SET    ITEMCNTR = "0"
  54. END
  55.